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SMGSCRMAC REQ; 1 
! Macros for RIL eens facilit 
({ File: SMGSCRAA aT: Edit: PLL1001 | 
i 
TITITILITTLILLILI LLL LLL LLL LLL | 
‘@ 
ie COPYRIGHT (¢) 1978 1980, 1982, 1984 BY | 
ie bisiy AL FOU T CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RES RVED™ | 
ie THIS a Aeronbaat FURNISHED UNDER A LICENSE AND MAY BE E USED A AND  COPLED 
: A es RT He 
ie lust mica NO ICE. TH SOP TWA WARE yor ANY OTHE 
ie COPIES ONEREOF “ar ern OR OTHERWIS AILAB E TOA 
ie OTHER PERSON. TITLE 0 AND DUNER OSNIP OF the EF IUAR HEREBY 


te TRANSFERRED. 


ie THE INF ORATION IN THIS SOFTWARE 1S SUBJECT 


O CHANGE WITHOUT NOTICE 
ie SHOULD BE CONSTRUED AS A COMM 
HE 


T 
MENT BY DIGITAL EQUIPMENT 
ie CORPORATION. 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR T 


IL OR RELIABILITY OF ITS 
te SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIE ITAL. 


E 
BY DIG 


TITITITILILILILLLL LLL LLL LLL LLL TLL TLL iiiiii iii 
i 

Sa 

FACILITY: Screen Management 

ABSTRACT: 


This file contains macros used by the autobended routines (SCR$ routines 
which call SMG$). 


MODIFIED BY: 
! 1-001 = Original. PLL 6-JUNE-1983 


oa 


MACRO SSRGSCREGET _CUR_TCE r 


EXTERNAL LITERAL 
LIBS_iNVCHA; 


if - SMGSL_CUROUTPUT EQL 0 
HEN 


BEGIN ! no current output device 
LOCAL 

STATUS; 
IF, SMGSL_ FLINKHEAD NEQ 0 


eo 


RETURN (LIBS_INVCHA); ! error if not Ist call to smgscr 
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TAT CRSSET_OUTPUT (0);! f 
I ws "Kt ese OUTPUT (0 set up stream 0 for output 


N 
RETURN (.STATUS); 
END; 


S = .SMGSL_CUROUTPUT; ! should now be a current cntri block 
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